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RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
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RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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ALL RIGHTS RESERVED. 


THIS he fs FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
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INCLUSION OF THe ABOVE re NOTICE. THIS SO FTW WARE OR ANY OTHER 
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FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: 


Defines macros used by error-message processing. 


ENVIRONMENT: Transportable BLISS 


AUTHOR: Rich Friday 
CREATION DATE: 1978 
MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


0 
msg (l, s) = 
BEGIN 
amis ROUTINE 


L 
RIF ZLENGTH ai 1 
ZTHEN 
filout (=1, ZCHARCOUNT(L), CHSPTR(UPLIT(L))) 
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ELSE 
tF1 
i; 
MACRO 
ana. (s)= 
5 HSPTR ( UPLIT (ZSTRING(ZCHAR(ZCHARCOUNT (s)),s)) ) 


filout (-1, Ll, s) 
END 


MACRO 
= 
ZCHAR(%0'07") 


{sz 
ZCHAR(%0'177") 


: End of MSG.REQ 
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